home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 March / Ahoy_Magazine_85-03_1985_Double_L.d64 / numer. vic (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  74 lines
  1. 10 poke36879,26:print""chr$(142)chr$(8):r$=chr$(13)
  2. 12 print"[147]  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]"r$"  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]"
  3. 14 print"       numerology"
  4. 16 print" i will analyze a name    or date for its     mystical vibrations."
  5. 18 print"   according to the    ancients, vibrations create characteristics":gosub70
  6. 20 print"  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]"r$"  [214][214]  [214][214]  [214][214]  [214][214]  [214][214]":gosub66
  7. 22 v=0:z=0:n$="":a$="":print"[147]analyze a name (n) ,  or a date (d)?"
  8. 24 gosub66
  9. 26 ifq$<>"n"andq$<>"d"then22
  10. 28 ifq$="n"then44
  11. 30 print"[147]date to be analyzed   -- numbers only"
  12. 32 print"(proper form would be 12 15 1984)":input n:n$=str$(n):fori=2tolen(n$)
  13. 34 a$=mid$(n$,i,1):ifasc(a$)=32or(val(a$)>0andval(a$)<10)then38
  14. 36 gosub64:goto32
  15. 38 ifasc(a$)=32thennext
  16. 40 z=z+(val(a$)):next:z$=str$(z)
  17. 42 goto56
  18. 44 print"[147]name to be analyzed   -- letters only"
  19. 46 print"(proper form is name  commonly used -full   name or nickname)":inputn$
  20. 48 fori=1tolen(n$):a$=mid$(n$,i,1):ifasc(a$)=32or(asc(a$)>64andasc(a$)<91)then52
  21. 50 gosub64:goto46
  22. 52 ifasc(a$)=32thennext
  23. 54 z=z+(asc(a$)-64):next:z$=str$(z)
  24. 56 v=0:iflen(z$)<=2then72
  25. 58 fori=1tolen(z$):v=val(mid$(z$,i,1))+v:next
  26. 60 ifv<10thenz$=str$(v):goto72
  27. 62 z$=str$(v):goto56
  28. 64 print"invalid-try again":v=0:z=0:return
  29. 66 getq$:ifq$=""then66
  30. 68 return
  31. 70 printr$" hit any key to cont.":return
  32. 72 n=len(n$):n=11-(n/2):print"[147]"tab(n)n$r$"    vibrates to "z$r$r$
  33. 74 z=val(z$):fori=0to(z-1)*5:readb$:next:fori=1to5:readb$:printb$;:next
  34. 76 gosub70
  35. 78 gosub66
  36. 80 restore:goto22
  37. 82 data,"ruled by the sun.     driving life force.   leader, ambitious,    impatient"
  38. 84 data",an explorer,extrovert,automatic toassume command, "
  39. 86 data"very  strong feeling,deservepraise which can spur to"
  40. 88 data" greater things.   "
  41. 90 data" compatible with other fires - 1,3, or 9"
  42. 92 data"ruled by the moon.    sensitive, domestic,  emotional."
  43. 94 data"easily movedto tears. fertile     imagination.  fond of"
  44. 96 data" home. patriotic.preferto live near water.   musical",
  45. 98 data"talent.        compatible with other water - 2,7"
  46. 100 data"ruled by jupiter.     investigator,scientistseeker,material rather"
  47. 102 data"than spiritual. good  sense of humor. trustslikes to know why"
  48. 104 data" and how. not interested inmoney ",
  49. 106 data"compatible with other fire - 1,3,or 9"
  50. 108 data"ruled by uranus.appearstrange and eccentric.ahead of his time."
  51. 110 data"    interest  in occult,  psychic & out of the  ordinary. "
  52. 112 data"intuitive.  sarcastic if crossed. liberty,equality." ,
  53. 114 data"     compatible with other airs - 4or 5"
  54. 116 data"ruled by mercury.     active physically and mentally. inquiring, "
  55. 118 data" exploring. likes to   read and do research. linguistic. teacher,  "
  56. 120 data"writer, secretary.    friendly, methodical, orderly.",
  57. 122 data"  compatible  with   other airs - 4 or 5"
  58. 124 data"ruled by venus.       gentle,refined, comelysociable, pleasant. "
  59. 126 data"a peacemaker.difficulty in finances. friendly and  agreeable."
  60. 128 data" a goodhost or hostess.      ",
  61. 130 data"compatible with other earths - 6 or 8"
  62. 132 data"ruled by neptune.     psychic, introvert,   mysterious. does not"
  63. 134 data"  say much,but knows    much. drawn to occult.likes fishing"
  64. 136 data". takes  from haves, gives to  have-nots.",
  65. 138 data" compatible with other waters - 2 or 7"
  66. 140 data"ruled by saturn. cold,pessimistic. no  senseof humor."
  67. 142 data" sucess in   finances. associated  with mining, law, realestate,"
  68. 144 data" cemeteries,   pawn shops. works hardconcern with the past.",
  69. 146 data"compatable with other earths - 6 or 8"
  70. 148 data"ruled by mars.        emotional,jealous,    active, tied to family"
  71. 150 data"loyal. suspicious of  strangers. impulsive. afraid of unknown.    "
  72. 152 data"associated with       surgery, physical and mental illness.     ",
  73. 154 data"  compatible with other fires - 1,3, or 9"
  74.